home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 September & October / Amiga-CD 1997 #9-10.iso / software / turbobasedemo / beispiele / makro / turbocalc.rexx < prev    next >
OS/2 REXX Batch file  |  1996-09-29  |  821b  |  45 lines
  1.  
  2. /*
  3.  * Beispiel-ARexx-Skript zu TurboBase   © Michael Friedrich
  4.  *
  5.  * Dieses Script exportiert alle Datensätze des aktueller Datenbank
  6.  * in die aktuelle Tabelle von TurboCalc (muß geöffnet sein!)
  7.  *
  8.  * (Die Datensätze werden in diesem Beispiel einzeln per Clipboard
  9.  * übertragen - in der Praxis geht dies natürlich anders viel schneller
  10.  * dies nur als kleines Beispiel)
  11.  *
  12.  */
  13.  
  14.  
  15. OPTIONS FAILAT 100
  16.  
  17. ADDRESS TBASE
  18.  
  19. /* aktuelles Projekt wählen! */
  20. CONTEXT.MACRO
  21.  
  22. /* Eine neue Abfrage öffnen,
  23.    mit VERBOSE wird ein Statusfenster angezeigt! */
  24.  
  25. QUERY "TurboCalc-Export" NEW VERBOSE
  26. if rc~=0 then exit
  27.  
  28. FIRST
  29. do while (RC==0)
  30.   COPY
  31.   if rc~=0 then break
  32.  
  33.   address TCALC CLIPREAD
  34.   address TCALC DOWN
  35.  
  36.   QUERY "TurboCalc-Export"
  37.   if rc~=0 then break
  38.  
  39.   NEXT
  40. end
  41.  
  42. /* Abfrage und Statusfenster wieder schließen */
  43. CLOSE
  44.  
  45.